1 PRINT"[147]";
5 GOSUB 200:INPUT X:PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
6 GOSUB 200:INPUT Y:PRINT" ERGIBT:"
10 REM X/Y
20 IFY<>INT(Y)THENX=X*10:Y=Y*10:GOTO20
21 IF Y>2000 THEN PRINT"UNTERSUCHE BIS 2000 STELLEN AUF PERIODE":DIM R(2000):GOTO 30
22 DIM R(Y)
30 N=INT(X/Y):X=X-Y*N
40 R(KM)=X
49 IF PEEK(211)=0 OR PEEK(211)=40 THEN PRINT"";
50 PRINTRIGHT$(STR$(N),LEN(STR$(N))-1);:IFK=0THENPRINT".";
51 IFKM=0THEN 55
52 FORF=0TOKM-1
53 IF R(KM)=R(F) THEN 100
54 NEXT
55 N=0:K=1:KM=KM+1
60 X=X*10
70 GOTO 30
100 FOR D=1TOKM-F:PRINT"[157]";
102 IF PEEK(211)=39 OR PEEK(211)=79 THEN PRINT"[145]";
105 NEXT
110 PRINT"[145]";
120 FOR D=1TOKM-F:PRINT"[164]";
122 IF PEEK(211)=0 OR PEEK(211)=40 THEN PRINT"";
125 NEXT
130 PRINT:PRINT:PRINT:PRINT:PRINT
150 GET A$:IF A$="" THEN 150
160 RUN
200 POKE 631,20:POKE 632,20:POKE 633,20
201 POKE 634,32:POKE 635,32:POKE 636,32
205 POKE 198,6:RETURN